home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 2,801 to 2,900 / aol-file-protocol-4400-2801-to-2900.zip / AOLDLs / TAWUG / TAWUG Disk No. 20 (SHK) / TAWUG.20 / AWORKS.DATA (.txt) < prev    next >
AppleWorks Document  |  1986-01-17  |  3KB  |  72 lines

  1. O=====|====|====|====|====|====|====|====|====|====|====|====|====|====|====|===
  2.  0  REMAPPLEWORKS DATA DISK CATALOGUING PROGRAM
  3.  1  REMBY ROBERT J. SCHACK
  4.  2  REMDECEMBER 22, 1985
  5.  10  GOSUB 300.
  6.  20 D$ =  CHR$ (4): REMCONTROL-D DOS COMMAND8
  7. 6 30  VTAB 14: HTAB A%(1): PRINT A$(1): REMPRINT CHECK 
  8. PRINTER POWER MESSAGE3
  9. 1 40  VTAB 16: HTAB A%(2): PRINT A$(2);: REMPRINT 
  10. INSTRUCTIONS TO CONTINUE
  11.  50  GET KEYPRESS1$
  12.  60  HOME : REMCLEAR SCREEN8
  13. 6 70  IF KEYPRESS1$ <  >  CHR$ (13) GOTO 40: REMIF ANY ?
  14. =RESPONSE OTHER THAN <RETURN>, PRINT INSTRUCTIONS TO CONTINUE 
  15. AGAIN AND WAIT9
  16. 7 80  VTAB 14: HTAB A%(3): PRINT A$(3);: REMIF <RETURN> )
  17. PRESSED, PRINT REQUEST FOR DRIVE NUMBER;
  18. 9 90  GET DRIVE$: REMUSE STRING SO PROGRAM WON'T CRASH IF 
  19. WRONG KEY IS PRESSED8
  20.  100 DR% =  VAL (DRIVE$): REMCONVERT STRING TO INTEGER?
  21. = 110  IF DR% <  > 1 AND DR% <  > 2 GOTO 80: HOME : REMIF BAD >
  22. <DRIVE NUMBER, PRINT DRIVE NUMBER REQUEST AGAIN; ELSE, CLEAR 
  23. SCREEN/
  24.  120  HOME : VTAB 14: HTAB A%(4): PRINT A$(4)(
  25.  130  VTAB 16: HTAB A%(5): PRINT A$(5)(
  26.  140  VTAB 17: HTAB A%(6): PRINT A$(6)6
  27. 4 150  VTAB 19: HTAB 19: PRINT "?";: GET KEYPRESS2$: !
  28. REMCENTER CURSOR AND GET ANSWER;
  29. 9 160  IF KEYPRESS2$ <  > "r" AND KEYPRESS2$ <  > "R" AND 8
  30. 6KEYPRESS2$ <  > "f" AND KEYPRESS2$ <  > "F" GOTO 120: =
  31. ;REMPRINT REQUEST FOR CATALOG WIDTH AND IF BAD REPLY, PRINT 
  32. AGAIN;
  33. 9 170  IF KEYPRESS2$ = "R" OR KEYPRESS2$ = "r" THEN CA$ =     
  34. "CAT,D";
  35. 9 180  IF KEYPRESS2$ = "F" OR KEYPRESS2$ = "f" THEN CA$ = 
  36. "CATALOG,D"2
  37.  190  PRINT D$;"PR#1": REMSEND OUTPUT TO PRINTER
  38.  200  PRINT D$;CA$;DR%2
  39.  210  PRINT D$;"PR#0": REMSEND OUTPUT TO MONITOR
  40.  220  HOME ?
  41. = 230  VTAB 14: HTAB A%(7): PRINT A$(7): VTAB 15: HTAB A%(8): 8
  42. 6PRINT A$(8);: REMPRINT QUERY WHETHER TO PRINT ANOTHER     
  43. CATALOG
  44.  240  GET KEYPRESS3$: HOME ?
  45. = 250  IF KEYPRESS3$ = "Y" OR KEYPRESS3$ = "y" GOTO 70: REMIF :
  46. 8RESPONSE IS YES, RETURN TO LINE 70 TO PRINT REQUEST FOR 
  47. DRIVE NUMBER?
  48. = 260  IF KEYPRESS3$ = "N" OR KEYPRESS3$ = "n" THEN  VTAB 14: ?
  49. =HTAB A%(9): PRINT A$(9): VTAB 15: HTAB A%(10): PRINT A$(10): >
  50. <FOR I = 1 TO 200: NEXT : HOME : NEW : REMIF RESPONSE IS NO, 4
  51. PRINT GOOD BYE MESSAGE, CLEAR SCREEN, CLEAR MEMORY>
  52. < 270  GOTO 230: REMIF RESPONSE OTHER THAN YES OR NO, RETURN "
  53. TO LINE 160 AND REQUEST RESPONSE9
  54.  300  REMSTRING INITIALIZATION AND CENTERING SUBROUTINE
  55.  310  HOME 
  56.  320  FOR I = 1 TO 10/
  57.  330  READ A$(I): REMLOAD ARRAY WITH MESSAGES7
  58. 5 340 A%(I) =  INT ((40 -  LEN (A$(I))) / 2): REMFIND 8
  59. STARTING POINT OF CENTERED STRING ON 40 COLUMN MONITOR
  60.  350  NEXT 1
  61.  360  DATA PLEASE CHECK THAT YOUR PRINTER IS ON.
  62.  370  DATA PLEASE PRESS <RETURN> TO CONTINUE*
  63.  380  DATA CATALOG WHICH DRIVE (1 OR 2)?$
  64.  390  DATA CHOOSE (R OR F) CATALOG$
  65.  400  DATA R = REGULAR (40 COLUMN)"
  66.  410  DATA F = FULL (80 COLUMN) !
  67.  420  DATA DO YOU WANT TO PRINT#
  68.  430  DATA ANOTHER CATALOG (Y/N)?-
  69.  440  DATA PROGRAM OVER ... CLEARING MEMORY
  70.  450  DATA GOOD BYE
  71.  460  RETURN
  72.